home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / magazine / installxcad / install-xcad2000 next >
Text File  |  1996-11-01  |  5KB  |  145 lines
  1. ; $VER: Install XCAD 2000 V1.0 (23rd January 1994) © 1994 by Ben Vost
  2.  
  3. ; added to make installer run from CD
  4. (makeassign 'Install_XCAD2000.1' ':CUCD/Magazine/InstallXCAD')
  5. (makeassign 'Install_XCAD2000.2' ':CUCD/Magazine/InstallXCAD')
  6.  
  7. (set help-XCADassigns   (cat    "Select PROCEED to automatically add the"
  8.                 "XCAD 2000 assignments to the user-startup"
  9.                 " file. If you select SKIP THIS PART, you will"
  10.                 " need to add the following assigns to your"
  11.                 " User-Startup (<XCDir> is where you installed"
  12.                 " XCAD 2000):\n\n"
  13.                 "Assign XSPOVLY:            <XCDir>XSPOVLY\n"
  14.                 "Assign XSLOVLY:            <XCDir>XSLOVLY\n"
  15.                 "Assign XSMODS:             <XCDir>XSMODS\n"
  16.                 "Assign XSFONTS:            <XCDir>XSFONTS\n"
  17.                 "Assign XSDATA:             <XCDir>XSDATA\n"
  18.                 "Assign XCad20003D:         <XCDir>\n"
  19.                 "Assign XCad20003DHandlers: <XCDir>Handlers\n"
  20.                 "Assign MENUS:              <XCDir>menus\n"
  21.                 "Assign DRAWINGS:           <XCDir>drawings\n"
  22.                 "Assign SYMBOLS:            <XCDir>symbols\n"
  23.                 "Assign XCad20003DPMods:    <XCDir>PMods\n\n"
  24.             )
  25. )
  26.  
  27. ;for NTSC machines...
  28. (procedure NTSC
  29.     (message "Now copying files suitable for an NTSC system...")
  30.         (copyfiles
  31.             (prompt"")
  32.             (help "")
  33.             (source "Install_XCAD2000.1:screenmodes/")
  34.             (pattern "#?NTSC#?")
  35.             (dest XCDIR)
  36.                 )
  37.     (working)
  38.     (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-prog_ntsc.lha \"%s/\"" XCDir))
  39.  
  40.  
  41. )
  42. ;for PAL machines...
  43. (procedure PAL
  44.     (message "Now copying files suitable for a PAL system...")
  45.         (copyfiles
  46.             (prompt "")
  47.             (help "")
  48.             (source "Install_XCAD2000.1:screenmodes/")
  49.             (pattern "~(#?NTSC#?)")
  50.             (dest XCDIR)
  51.                 )
  52.     (working)
  53.     (run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-prog.lha \"%s/\"" XCDir))
  54.  
  55. )
  56.  
  57. ; ask where to install X-CAD 2000
  58. (set ProgDir "XCAD2000")
  59. (set @default-dest
  60.     (askdir
  61.        (prompt "Please select the Directory where you would like to install XCAD2000, a drawer will be created.\nYou will need about 2.5Mb free.")
  62.        (help @askdir-help)
  63.        (default "Work:")
  64.        )
  65.     )
  66.  
  67. (makedir (tackon @default-dest ProgDir)(infos))
  68.  
  69. (set XCDir (tackon @default-dest ProgDir))
  70.  
  71.  
  72. (copyfiles
  73.     (prompt "")
  74.     (help "")
  75.     (source "Install_XCAD2000.1:c/lha")
  76.     (dest "RAM:")
  77. )
  78.  
  79. (set vblank (database "vblank"))
  80.     (if (= vblank "60")
  81.         (NTSC)
  82.         (PAL)
  83.     )
  84. (complete 20)
  85.  
  86. ;start installing XCAD 2000
  87.  
  88. (makedir (tackon XCDir "drawings")(infos))
  89. (makedir (tackon XCDir "symbols"))
  90.  
  91. (copyfiles
  92.     (prompt "")
  93.     (help "")
  94.     (source "Install_XCAD2000.1:s/")
  95.     (pattern "xc#?")
  96.     (dest "s:")
  97. )
  98.  
  99. (working "Installing first block of files now...")
  100. (run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-2.lha \"%s/\""XCDir))
  101.  
  102. (complete 40)
  103.  
  104. ;(askdisk "Install_XCad2000.2"
  105. ;    (prompt "Please insert the disk named Install_XCad2000.2 in any drive...")
  106. ;    (help @askdisk-help)
  107. ;    (dest "Install_XCad2000.2")
  108. ;)
  109.  
  110. (working "Installing second block of files now...")
  111. (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-3.lha \"%s/\""XCDir))
  112.  
  113. (complete 60)
  114.  
  115. (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-4.lha \"%s/\""XCDir)
  116.     (prompt "Would you like to install the tutorial files?")
  117.     (help "")
  118.     (confirm)
  119. )
  120.  
  121. (complete 60)
  122.  
  123. (startup "X-CAD 2000"
  124.         (prompt "Add XCAD 2000 assigns to \"S:user-startup\"?")
  125.             (help   (cat  help-XCADassigns @startup-help))
  126.         (command (cat   "Assign XSPOVLY: \"" (tackon XCDir "XSPOVLY") "\"\n"
  127.                 "Assign XSLOVLY: \"" (tackon XCDir "XSLOVLY") "\"\n"
  128.                 "Assign XSMODS: \"" (tackon XCDir "XSMODS") "\"\n"
  129.                 "Assign XSFONTS: \"" (tackon XCDir "XSFONTS") "\"\n"
  130.                 "Assign XSDATA:  \"" (tackon XCDir "XSDATA") "\"\n"
  131.                 "Assign XCad20003D: \"" XCDir "\"\n"
  132.                 "Assign XCad20003DHandlers: \"" (tackon XCDir "Handlers") "\"\n"
  133.                 "Assign MENUS: \"" (tackon XCDir "menus") "\"\n"
  134.                 "Assign DRAWINGS: \"" (tackon XCDir "drawings") "\"\n"
  135.                 "Assign SYMBOLS: \"" (tackon XCDir "symbols") "\"\n"
  136.                 "Assign XCad20003DPMods: \"" (tackon XCDir "PMods") "\"\n"
  137.                 )
  138.             )
  139. )
  140. (if (= 1 (exists "RAM:lha"))
  141.     (delete "RAM:lha")
  142. )
  143. (Complete 100)
  144. (exit"You will need to reboot before you can use \nX-CAD 2000.\n")
  145.